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CHARACTER STRING ROUTINES 


+ 
FACILITY: 
ABSTRACT: 


The VAX=11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX-11 LINKER. 


ENVIRONMENT : 
AUTHOR: Benn Schreiber, CREATION DATE: 21-AUG-78 
MODIFIED BY: 
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v01.11 RNOO16 R. Ne vere 19-Oct-1979 
Don't output error me sages bY $52 NTYPE operand 
argument is the PC. 659 


v01.10 RNOOOS R. Newland 26-Aug-1979 
Reorder macro definitions and remove SALIGN LONG 
and .DEBUG statements 
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MACSACTCHR CHARACTE 
V0s-000 DECLARAT 


R 
10N -SEP-1984 46:46 ([CMACRO.SRCJACTCHR.MAR; 1 
1 ~SBTTL DECLARATIONS 
re ; INCLUDE FILES: 
? 
74 : 
75 ; MACROS: 
0 f§ 
099 oe $MAC_INTCODDEF DEFINE INT. FILE CODES 
7 SMAC_GENVALDEF ;DEFINE GENERAL VALUES 
4 0 SMAC_CTLFLGDEF DEFINE CONTROL FLAGS 
0 1 _oYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
Boer Ht SMAC_INPBLKDEF ;DEFINE INPUT BLOCK OFFSETS 
003C 8 SMAC_GRAMMARDEF ;DEFINE TERMINAL re SYMBOLS 
003C 84 SOSCBEF DEFINE ARG DESCRIPTORS 
003C 85 SMACMSGDEF ; Define message codes 
003C 86 
003C 87 : 
003C 88 : EQUATED SYMBOLS 
003C 89 ; 
003C 90 
00000000 003C 91 ASC$_ASCIC = 0 sASCIC CODE 
00000001 003C 3 ASC$_ASCID = 1 sASCID 
00000002 003C¢ 9 SC$_ASCII = 2 sASCII 
0000000 its ae ASC$_ASCI1Z = 3 sASCIZ 
00000000 96 -PSECT MAC$RO_CODE_P1,NOWRT,GBL,LONG 
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v04=000 CHARACTER DATA GENERATING DIRECTIVES -SEP=1984 01:46:46 CMACRO.SRCJACTCHR.MAR; 1 (3) 
0 0 98 .SBTTL CHARACTER DATA GENERATING DIRECTIVES 
000 106 p++ 
a8 13 : FUNCTIONAL DESCRIPTION: 
000 1 j : ASCIC IS CALLED WHEN A pAscic DIRECTIVE IS FOUND. THE ASCII 
999 106 ; STRING 1S EMITTED WITH A PRECEDING COUNT BYTE 
$333 0p 
0000 108 ASCIC sCHAR_HEAD = KASCIC 
9009 109 $SINTOUT iW INT$_STKL,#0 ‘STACK A 0 
110 SINTOUT“X INT$_STSB ‘STORE SIGNED BYTE 
000g 111 SINC PC” ‘LEAVE ROOM FOR COUNT BYTE 
44 10 001 118 BSBB : JOIN COMMON 
00 0014 11 BYTE ASES ASCIC ‘THIS IS INDEX FOR ASCIC 
SFE aa 
0013 116 : FUNCTIONAL DESCRIPTION: 
0015 +118: ASCID IS CALLED WHEN A .ASCID DIRECTIVE IS FOUND. THE 
0015 119: ASCII STRING IS EMITTED WITH A PRECEDING STRING DESCRIPTOR 
0015 120: CONSISTING OF *.LONG STRING_LENGTH,.+1". 
0015 121: 
0015 122 :-- 
S318 TBE asin 
00 6B 14 + #«2€3 0015 193 ; * BBCS tet CHKLPND,(R11),.41 ; sure we check for a continuatio 
0019 126 SINTOUT_LW INTS =STKL,#e<1a243 ‘cosiske wits: -1a16>> sSTART ST TRING DESCRIPTOR 
0025 127 SINTOUT~ + INT$~STOL ;AND STORE IT 
00¢8 128 SINC _PC™# [COUNT 4 BYTES 
0030 ie SINTOUT_X INT$_STKPC sSTACK CURRENT PC 
0036 130 SINTOUT“LW INT$~ Hh Th 74 BYTES PLUS 1 
003E 131 SINTOUT“X INT$"ADD ‘POINT TO THE START OF THE STRING 
0044 132 SINTOUT~ “y INT$~SPID ‘CALL IT PID? 
004A 133 SINC_PC “He ;COUNT 4 MORE BYTES 
07 10 O04F 134 BSBB~  ASC_COM : JOIN COMMON CODE 
01 0051 135 .BYTE ASCS_ASCID INDEX FOR ASCID 
518 
005 138 : FUNCTIONAL DESCRIPTION: 
0052 140: ASCII IS CALLED TO PROCESS A .ASCII DIRECTIVE. THE ASCII 
0052 141: st RING IS SCANNED AND CODE IS EMITTED TO PASS 2 TO EMIT 
005 148 : THE STRING. 
0052 «143: 
boss 148 
ie 146 ASCII:: CHAR_HEAD = KASCII 
04 10 0052 147 BSBB = ASC_COM OOINT COMMON CODE 
02 0054 148 .BYTE ASCS$_ASCII S INDEX FOR ASCII 
1 oe 
o038 131 + FUNCTIONAL DESCRIPTION: 
32 138 : ASCIZ IS CALLED WHEN A .ASCIZ DIRECTIVE IS SCANNED. THE 
0055 154: ASCII STRING IS EMITTED WITH A ZERO BYTE AT THE END 
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155 ; 
138 ASCIZ:: ;CHAR_HEAD = KASCIZ 
01 19 38 15 BSBB = ASC_COM :JOIN-COMMON CODE 
0 09 160 -BYTE ASCS_ASCIZ t INDEX FOR ASCIZ 
03 16¢ ; COMMON CODE FOR ASCIC/ASCID/ASCII/ASC1Z 
058 164 ASC_COM: 
O000'CF 9E 9A 0058 165 MOVZBL a@(SP)+,W°MACSGL_DIRFLG ;SET ASCIX IN 
0D SA 91 905D 166 CMPB ss R10, #CR [WAS THERE NO DELIMITER? 
11 13 0060 16 BEQL 10$ TIF EQL YES=--SYNTAX ERROR 
00 68 2F €3 0062 168 BBCS §§ #FLGSV_DLIMSTR,(R11),.41 ;PASS ALL CHARACTERS | IN STR 
O000'CF D4 0066 169 CLRL W*MACSGL_ASCCNT :CLEAR CHARACT 
OO00'CF 07 006A 170 DECL  W*MACS$GL~LINEPT ‘BACKUP TO REREAD SELIMITER 
FFBF' 30 O06E 171 BSBW MACSGETCAR SREREAD DELIMITER 
41 11 0071 1% BRB GET CHARS SSTART SCANNING ASCII STRING 
0073 «173 10$: SRAC ERR DIRSYNX : Roper’ yaynten error 
FF8S' 31 0078 17% BRW MACSERRORPT TAND R 
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+4 

; FUNCTIONAL DESCRIPTION: 


CHRNUL IS CALLED WHEN A_NULL CHARACTER ‘<>’ | 
ANNING AN ASCIX DIRECTIVE. 


N A NULL BYTE IS 
SCANNING CONTINUES. 


CHRNUL: : 


tak an DANGCLS 
ARGS aie 4 DANGCLS 


RO 
MACSINTOUT_BY 
W*MACSGL_ASCCNT 
GET_CHAR 


; COUNT THE CHARACTER 
CONTINUE SCANNING STRING 


+ 
FUNCTIONAL DESCRIPTION: 

CHRARG IS CALLED WHEN AN a natin STRING. eel IS 
RACKET, bicrere te TO 


D 
SCANNING OF THE STRING THEN CONTINUES UNTIL END-OF=LINE. 


S fot ae EXPR DANGCLS 

a Anes DANGOPN EXPR DANGCLS 
ie ABSFLAG 

#FLGSV “Ee eT LS 208 : NOT ALLOW EXPRESSION OPTIMIZATION 
;BRANCH IF CANNOT OPTIMIZE 


10$: 


YES==-DO IT 
UARACBAL HALSTACK-6CR72, RO >SET TO STORE IMMED. BYTE 
STORE aed BYTE 


ORE BYTE 
; COUNT THE BYTE 
CONTINUE SCANNING STRING 


UPWACSGL ASCENT 
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00B4 0 ;++ 
bOB4 1 = FUNCTIONAL DESCRIPTION: 
00B4 § : GET_CHARS IS A LOCAL ROUTINE TO SCAN ASCIX STRINGS. ALL 
00B4 4: CHARACTERS ARE PASSED THE STRING IS SCANNED UNTIL 
00B4 5: END-OF-LINE. IF A BRACKETED EXPRESSION IS FOUND, GET_CHARS 
008 36 ; RETURNS TO THE PARSER TO GATHER THE EXPRESSION W THE | 
00B4 : ANGLE BRACKETS, AND THEN CALL CHRARG TO STORE THE EXPRESSION | 
00B4 8: VALUE AND CONTINUE THE SCAN. 
00B4 9s 
00B4 . = 
00B4 31 
00B4 ‘ GET_CHARS: 
00 6B 06 E3 00B4 23 BBCS §§ #FLGS$V_EVALEXPR,(R11),.+1 ;ALLOW EXPRESSION EVALUATION 
FF45" 30 O0B8 234 208: BSBW MACSSKIPSP ; IGNORE BLANKS 
0 SA 91 O0BB 235 CMPB  —s- R10, #CR ; CARRIAGE RETURN? 
5313 «OOBE «= 286 BEQL  70$ :IF EQL YES 
3c.6O SAO «0000~Ss 237 CMPB sa R10, #*A/</ iNO-=BRACKETED EXPRESSION? | 
4E 13 00C3 238 BEQL 70$ sIF EQL YES 
7E SA 90 005 239 MOVB  R10,-(SP) iNO--SAVE DELIMITER 
00 68 2F €3 O00CB 240 BBCS § #FLGSV_DLIMSTR,(R11),.+1 ;PASS ALL CHARS IN DLIM STR 
00 68 00 ES OOCC 241 BBCS  #FLGSV7ALLCHR, (R11) ,80$ :PASS ALCS CHARACT ERS | 
FF2D' 30 00D0 242 30$:  #BSBW  MACSGETCHR [GET NEXT CHARACTER 
6E SA 91 00D3 243 CMPB =. R10, (SP) ‘MATCHING DELIMITER? 
0D 12 00D6 244 BNEQ 40$ [IF NEQ NO 
0068 00 £4 O0D8 245 BBSC § #FLGSV_ALLCHR,(R11),.+1 :YES=-CLEAR ALL CHARS FLAG 
00 68 2F £4 OODC 246 BBSC #FLGSV“DLIMSTR,(R115,..4+1 ; NO MORE HYPHENS AND SEMIS 
FFID' 30 OOEO0 247 BSBW MACSGETCHR :GET NEXT CHARACTER 
23. 11 #OOE3 248 BRB 60$ AND EXIT | 
OD SA 91 OOES 249 40S: CMPB =. R10, #CR TEND OF LINE? | 
OA 12 OOEB 250 BNEQ iF NEQ N 
OOEA 251 $MAC_ERR UNTERMARG es--get message code | 
FFOE' 30 OOEF 33 BSBW  MACSERRORLN REPORT ERROR TO PASS 2 
14 11 OOF2 25 BRB 608 XIT 
50 5A DO OOF4 254.508: MOVL R10 SET TO STORE IMMED. BYTE 
FFO6' 30 OOF7 255 BSBW RACSIRTOUT _BY [STORE IMMEDIATE BYTE 
OOFA 256 SINC_PC [UP THE PC 
0000'CF D6 OOFE 257 INCL” | W°MACSGL_ASCCNT [COUNT THE CHARACTER 
00 6B 2F €3 0102 258 BBCS $ #FLGSV_DCIMSTR,(R11),.+ " jALLOw HYPHENS AND SEMIS | 
(8 «11 0106 359 BRB 30$ CONTINUE SCANNING | 
0108 261 : HERE IF CLOSING DELIMITER SEEN OR IF WE FOUND CR BEFORE CLOSING 
0108 62 : DELIMITER 
010 63 : 
SE D6 0108 264 40S: INCL SP :KEEP THE STACK STRAIGHT 
00 68 00 €5 O10A 365 BBCC #FLGSV_ALLCHR,(R11),65$ :DO NOT PASS ALL CHARACTERS | 
OD 5A 91 O10E 266 65$: CMPB Ss R10, #CR [END OF LINE? | 
AS 12 oii} 267 BNEQ 208° PIF NEQ NO--KEEP SCA NNING 
00 68 2F €5 0113 268 70$:  BBCC  #FLGSV_DLIMSTR,(R11),.+1 ;NO MORE HYPHENS AND SEMIS | 
00 68 O07 €E3 0117 269 BBCS  #FLGSVTEXPOPT,(R11),.+1 ;ALLOW EXPRESSION OPTIMIZATION | 
00 68 00 €5 011B 270 BBCC #FLG$VALLCHR,(R11)..+1 :DO NOT PASS SEMI COLONS ANY MORE | 
0000'CcF 59 D0 OIF 71 MOVL  R9.W°MACSGL_EXPPTR ;RESET EXPRESSION POINTERS | 
0000'CF 59 DO 0124 es MOVL  R9.W*°MACSGL EXPEND | 
O000'CF D4 gi 9 27 CLRL  W°MACSGL_ABSFLAG SASSUME ABSOLUTE EXPRESSION | 
0000' CF D4 O1 b rh CURL W“MACSGL ~PRMSEG =NO SEGMENT FOR EXPRESSION 
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1 77 ;++ 
08 ; FUNCTIONAL DESCRIPTION: 
01 80 ;: CHARHD IS CALLED WHEN A «ASCIX DIRECTIVE HAS BEEN COMPLETELY 
4 81 ; SCANNED. ACTION TAKEN 
01 68 ; .ASCIC = EMIT THE CHARACTER COUNT BYTE 
01 4; -ASCID = EMIT THE CHARACTER STRING DESCRIPTOR 
01 8° ; -ASCII = NONE 
O13 86 : -ASCIZ = EMIT A ZERO BYTE AT THE END OF THE STRING 
1 8 Saint ] 
O13 589 
013 90 CHARHD:: ;CHAR_STAT = CHAR_HEAD | 
OI 35 4! > CHAR~ STAT = CHAR_HEAD CHAR_ARGS | 
00 O000'CF 8F 0132 $95 CASEB W*MACSGL_DIRFLG,#ASC$_ASCIC,= ;DISPATCH 
03 0137 = 294 ASC$_ASC1Z 
0009" 0138 295 10S: «WORD 20$-10$ sASCIC 
9037" 013A 296 -WORD  30$-10$ SASCID 
0OBA' 013¢ $97 .WORD 40$-10$ ASCII 
008B8' O13E 298 .WORD 50$-10$ SASCIZ 
05 0140 ¢39 RSB [NONE OF ABOVE 
54 QO00'CF DO 0141 301 20S: MOVL  W*MACSGL_ASCCNT,R4 yASCIC--GET LENGTH 
QOOOOOFF BF 54 D1 0146 302 CMPL  R4,#255 :1S THE STRING TOO LONG? 
08 iF 0140 303 BLSSU 2 ; F obSSu NO 
O14F 304 SMAC_ERR re Ba a es--get error code 
FEA9' 30 0154 305 BSBW  MACSERR REPORT THE ERROR 
54 D6 0157 306 258: INCL  R4 [WHAT WE REALLY WANT IS LENGTH + 1 
72 10 0159 307 BSBB sé OS [DO COMMON PART OF PROCESSING 
50 O000'CF DO 0158 308 MOVL W*MACS$GL_ASCCNT,RO 3GET THE CHARACTER COUNT 
FE9D' 30 0160 309 BSBW MACSINTOOT BY :STORE IMMEDIATE BYTE 
0163 310 SINTOUT a INTS_AUGPC , <W*MACSGL -ASCCNT >RESET PC 
4D (11 016 311 BRB D GO FINISH UP 
54 QO00'CF DO O16F 313 30S: MOVL WeMACSGL ASCCNT,R4 :ASC1D=-GET CHARACTER COUNT 
QOOOFFFF BF 54 D1 0174 314 CHPL RG #°XFFFE [18 THE COUNT TOO LARGE? 
08 iF 017B 315 BLSSU 338 IF a SsuN NO 
017D 316 SMAC_ERR ASCTOOLONG es--get error code 
FE7B' 30 0182 317 BSBW  MACSERRORLN REPORT ERROR TO PASS 2 
54 08 CO 0185 318 33$: ADDL2 #8,R4 :WHAT WE NEED IS LENGTH + 8 
43 19 0188 319 BSBB. 60 COMMON PROCESSING 
018A 30 SINTOUT_LW INTS_SETLONG,<#0, wmacice LIST_IT> ;DON' I Li3T LINE 
54 Q000'CF DO 0198 1 MOVL “W*MACSGC_ASCCNT.R4 ;GET THE-BYTE COUN 
019D 338 SINTOUT_LW INTS STKL,R4 7STACK THE LONSWORD 
O1A5 32 SINTQUT=X, X INT$ STOW [STORE WORD 
52. OO00'CF 06 C1 O1AB 324 ADDL -W°MACSGL_ASCCNT,R2 FIGURE PC ADJUSTMENT 
0181 25 SINTOUT ts INT$_AUGPC ,<R2> TRESET PC | 
54 08 cO 01B9 3 ADDL2 “#8,R4 [UPDATE PC ADJUSTMENT 
01BC 7 35$: SINC_PC R4 TRESTORE PC 
05 01C1 28 RSB 
01¢ ¢3 
gic 0 40$: sASCII | 
05 O1C 31 RSB 
01¢ 3¢ 
01¢ 50$: TASCIZ 


>w 


at > ss 2 ss i a 
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CLRL =. RO ;SET TO STORE ZERO BYTE 
BSBW = MACSINTOUT_BY SSTORE IMMEDIATE BYTE 
SINC_PC [COUNT IT 


: COMMON ROUTINE FOR ASCIC AND ASCID 


60$: $DEC_PC R4 :BACK UP PC 
MNEGC RG, ;GET TWO'S COMP 
MOVZBL #3,RO :SET TO STORE 3 B 
BSBW | MACSINTOUT_N epee 
MOVB  #INT$ SETFCAG,(R9)+ :CODE IS SET FLAG 
MOVB = #FLG$0_MEBLST.(R9)+ [FLAG # TO SET 
SINTOUT_LW INTS_AUGPC.R3 :BACKUP PC IN PASS 2 
SFORCE NEW LISTING LINE 


SINTOUT“X INTS_FNEWL 
RSB 


LEMENT OF LENGTH 
YTES 
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1F 51 ~SBTTL PACKED DIRECTIVE 
1F ; 
1F 535 ;+¢+ 
if 2 3 FUNCTIONAL DESCRIPTION: | 
1F 36 : THIS ROUTINE READS A DECIMAL NUMBER WITH AN OPTIONAL LEADING 
1F 57 : SIGN. THE NUMBER IS THEN CONVERTED TO A PACKED DECIMAL STRIN 
iF 28 : AND OUTPUT "0 THE INTERMEDIATE CODE AS A STRING OF STORE IMMEDIATE | 
iF 60 ; | 
169 6¢ 
1F 63 PACKED:: :DIRECTIVE = KPACKED 
FEOD' 30 O1FO 64 BSBW MACSSKIPSP :SKIP LEADING SPACES 
7E OC 90 OTF 65 MOVB #13, (SP) SASSUME POSITIVE NUMBER 
28 «(SACO O1F6 66 CMPB  —saR10., #*A/+/ ‘WAS IT POSITIVE? 
08 13 OD % BEQL 10$ SIF EQL YES 
20 SA 91 O1FB 368 CMPB  saR10, #*A/=/ ‘NO=-WAS IT NEGATIVE? 
06 12 OE 369 BNEQ 208 :NO=-NO SIGN AT ALL 
6—E OD 90 9200 70 MOVB #13,(SP) YES==SET NEGATIVE SIG 
FDFA' 30 020 71 10$: BSBW  $MAC$GETCHR SREAD CHARACTER AFTER SIGN | 
56 D4 «(0206 rg 20$: CLRL 6 SCLEAR DIGIT COUNTER 
55 QO000'CF 9€ 0 08 z3 MOVAB W*MACSAB_TMPBUF ,R5 :POINT TO TEMP BUFFER 
9200 z3 : HERE FOR EACH NEW CHARACTER 
2c SA 91 0200 8 S0s: CMPB ss R10, #*A/,/ ;END OF NUMBER? 
4A 13 0210 378 BEQL EQL YES 
0 SA 9! ar: 379 CMPB = R10, #CR TEND OF LINE? 
45 13 021 80 BEQL 808 :IF _EQL YES 
04 €1 0217 381 BBC #CHRSV_NUM --15 CHARACTER A DIGIT? 
1D 0000'CA 0219 382 UMACSEB. CASK fAB(R10), sis; : (BRANCH IF NOT) 
1F 56 «D1 021D) «38 CMPL R6,#31 sYES--ROOM TO STORE? 
19 0220 384 BLSS :IF LSS YES 
0 $§ $82 $SMAC_ERR PACTOOLONG : samy is too long 
FDD6' 30 022 86 BSBW  MACSERRORLN ; ISSUE ERRO 
26 11 022A 387 BRB 70$ 
6 D6 O22C 388 40S: INCL R6 COUNT DIGIT WE STORE 
65 5A 90 02 — 389 MOVB —R'10, (RS) :STORE DIGIT 
85 FO BF BA 0 1 %90 BICB2 #*xf0,(R5)+ [CONVERT TO BINARY DECIMAL 
FDCB* 30 5 391 BSBW  MACSGETCHR [GET NEXT CHARACTER 
D3 11 0238 3¢ BRB 30$ SCONTINUE CHECKING 
FOC3' 30 023A 393 508: BSBW MACSSKIPSP ‘SKIP SPACES 
2c (SACO D 394 CMPB saR10, #*A/,/ [GET TO A COMMA? | 
1A 13° «0240 = 395 BEQL 80S TIF EQL YES | 
0 SA 91 4g 9 CMPB = R10, #CR :NO=-EOL? 
15 13 0264 9 BEQL _ 808 tIF EQL AYES | MA 
47? 398 Shae _ERR NOTDECSTRG : No-er MA 
FDB1' 30 024c¢ 399 BSBW- MACSERRORLN ISSUE “ERROR MESSAGE MA 
FDAE' 30 O024F 400 $08: BSBW MACSGET CHR ‘NEXT CHARACTER MA 
2c «(SACO 6 38 401 70$: CMPB  sR10, #*A/,/ [GET TO COMMA? MA 
5 13 025 40¢ BEQL :1F EQL YES MA 
0D A 91 0257 40 CMPB R10,@CR NO--EOL MA 
ee 3A ibs BNEQ 60% eNOWoKEEP LOOKING | mA 
3¢ 4 6 + HERE WHEN DONE WITH NUMBER MA 
€ 40 MA 


MACSACTCHR CHARACTER STRING ROUTINES 16-SEP-1984 01:58:23 VAX/VMS Macro V04-00 Page 11 
_ v04=000 PACKED DIRECTIVE typ 8:2 46:46 CMACRO.SRCJACTCHR.MAR; 1 ” ih 
56 OD C 408 80$: TSTL R ;NULL STRING? 
04 pS 3 108 BNEQ 58s :1F NEQ NO 
5 96 0260 410 CLRB  —s (R25) + SYES=-FAKE 0 
6 D6 62. 411 INCL R6 ‘COUNT IT 
85 : . 2 6 41g 90$ MOVE = (SP) +, (R5)+ ‘STORE SIGN AT END OF STRING 
CC SA 91 0367 41 CMPB sa R'10, #4A/,/ > COMMA? 
4A 12 «026A 414 BNEQ  140$ :I1F NEQ NO 
56 DD «(006C)| 415 PUSHL R6 SYES-=SAVE LENGTH 
FDBF* 30 gf 416 BSBW MACSGETCHR *GET NEXT CHR 
FD8C’ 30 | 4 BSBW MACSSKIPSP :SKIP_SPACES | 
06 £1 0276 418 BBC #CHRSV_NUM “I$ IT A LOCAL LABEL? 
12 000° CA 0 76 419 W*MACSAB CASK. ReaB(R10), 1008 “(BRANCH IF NOT) 
FD83" 30 027A 420 BSBW § MACSONUMBER =-READ 
0c 58 01 0270 421 CMPL #10 ‘Ua AN ID? 
1D 13 0280 4 é BEQL és iF EQL YES=-0k | 
0 if 4 SMAC uERR DIRSYN ; No=-syntax error | 
FD76" 30 0287 424 BSBW MACSERRORLN ; ISSUE RROR 
27 11 028A 425 BRB | 
FD71" 30 028C 426 100$: BSBW § MACSSYMSCNUP 'SCAN SYMBOL NAME 
0A 50 EB O28F 427 BLBS _—RO, 110$ ‘BRANCH IF GOT ONE | 
029¢ 428 $MAC_ERR DIRSYNX : Syntax error 
FD66" 30 029 499 BSBW”  MACSERRORLN 
17, 11 029A = 430 BRE 1 | 
FD61" 30 029C 431 110$:  BSBW MACS$INSUSRSYMTB - INSERT IN USER SYMTAB 
0111 8F AB 029F 43¢ 120$:  BISW2 #SYMSM_DEF!SYMSM_ ASN! SYMSM ABS,- ;SET DEFINED BY ASSIGNMENT | 
09 Al O2A3 43 SYMSW FLAG(R1) ;AND ABSOLUTE | 
05 Al 6E 00 O2A5 434 MOVL (SP) SASL -WALCRI) :SET STRING LENGTH AS VALUE 
55 00°8F 9A 0209 435 MOVZBL #CRFSK_ THIS Is A DEFINITION 
56 51 DO O2AD 436 MOVL Ri RR [POINT R6 TO SYMBOL BLOCK 
4D' 30 0280 437 BSBW ietees _SYM :CREF SYMBOL IF CREFFING 
56 BEDO 0283 438 130$: POPL 4 SRESTORE LENGTH 
50 56 C1 0286 439 140$: ADDL3 #2,R6 RO. ;ROUND NIBBLES UP TO BYTES 
50° 50 FF 8F 78 O2BA 440 ASHL  #-1,RO,R :RO HAS NUMBER OF BYTES 
O2BF 441 SINC_PC RO [UPDATE PC 
55 OQO00°CF 9 0204 442 MOVAG el cone as ‘POINT TO TEMP BUFFER 
56 «D6 «(0209 «= 443 INCL R6 [COUNT THE SIGN ALSO 
08 56 «6©€9 «(02CB 444 BLBC  R6,150$ ‘BRANCH IF EVEN NURBER OF BYTES 
50 85 90 O2CE 445 MOVB  (R5)+,R0 :NO=-GET FIRST BYTE 
FD2c' 30 0201 446 BSBW MACSINTOUT_BY ‘EMIT TO PASS 2 
56 «(07 0 D4 447 DECL R6 :COUNT IT | 
56 «DS «6(02D6) 0S 448 1508: TSTL R6 : DONE? | 
12 15 02D8 449 BLEQ 160% SIF LEQ YES | 
50 85 90 O2DA 450 MOVB  (R5)+, RO :NO--GET A NIBBLE 
50 50 04 78 O2DdD 451 ASHL 4,RO,RO {MAKE ROOM FOR OTHER NIBBLE 
50 85 88 02€1 43¢ BISB2 (R5)+ .RO GET SECOND NIBBLE 
56 602)«CC2s«é2E4 45 SUBL2 #2,R6 SEAT TWO BYTES 
FD16" 30 O2E7 454 BSBW  MACSINTOUT_BY TEMIT 10 INTERM. BUFFER 
EA 11 O2EA 455 BRB 150$ [LOOP FOR ALL NIBBLES | 
05 O2EC 456 160$: RSB ‘DONE | 
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NG ROUTINES 16=SEP=1984 01:58 23 VAX/VMS Macro V04-00 
RECTIVES =SEP=1984 01:46 MACRO. SRCJACTCHR.MAR; 
.SBTTL PC ALIGNMENT DIRECTIVES 
p++ 
: FUNCTIONAL DESCRIPTION: 
: THESE TWO ROUTINES MAKE THE PC EVEN OR ODD. 
EVEN: 
BLBS © W*MACSGL_PC,ODD_EVEN — ;BRANCH IF PC NEEDS ADJUSTING 
RSB :NO=-IT IS ALREADY EVEN 
ODD:: 
sd ine BLBS — W*MACSGL_PC,ODD_EVEN_EXIT ;BRANCH IF PC IS OK ALREADY 


SINTOUT LW INTS_AUGPC,#1 
ODD_EVEN_EXIT: 
RSB 


;AUGMENT PC BY ONE ON PASS 2 
;AUGMENT PC NOW ALSO 


~SBTTL PAGE MOVE TO NEW LISTING PAGE 


5 +4 
3; FUNCTIONAL DESCRIPTION: 
: pure ROUTINE EMITS CODE TO PASS 2 TO FORCE A NEW LISTING 


PAGE:: 
TOUT_LW INTS_SETLONG,<#-1,#MACSGL_LINE_CNT> ; pace NEW 


1 


$IN PAGE 
BINTOUT. Lw INTS-SETLONG,<#0, WMACSGL CIST_IT> > DbN' T LIST THE LINE 


MACSACTCHR CHARAC 
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$ 1 mi inet 1:58: ; er Macro V04-00 
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-SBTTL ERROR/WARN/PRINT DIRECTIVES 


p++ 
; FUNCTIONAL DESCRIPTION: 


WWronronororrorrorrrnrrrnn Mm 


8 
R 
6 494 
6 495 
Sis 
49 
0326 498 
8 6 499; THIS ROUTINE PROCESSES THE .WARN DIRECTIV E. THE PROPER 
6 500; CODES ARE STORED IN ‘MACSGL_VALUE' FOR LATER USE BY 
0326 20 3 ERROR2 OR ERROR}. 
0326 ¢ 5 
0326 503 ;-- 
0326 504 
8 6 28? WARN: : ERROR P a one KWARN 
6 06 $MAC_ERR GENWRN : Get mes code 
51 38 9A 0328 50 aoe VZBL #INT$_WRN,R1 sAND INT. 3 FFER CODE 
- We F 508 BRB ERR_COM ‘GO TO COMMON CODE 
03 509 
0330 510 ;++ 
0330 21} > FUNCTIONAL DESCRIPTION: 
0330 218 : THIS ROUTINE PROCESSES THE .ERROR DIRECTIVE. THE PROPER 
0330 514; CODES ARE STORED IN 'MACSGL_VALUE' FOR LATER USE BY 
0330 515; ERROR2 OR ERROR1. 
0330 516; 
0330 517 :-- 
0330 518 
0330 519 ERROR:: ;ERROR_HEAD = KERROR 
0330 520 SMAC_ERR GENERR : Get message code 
51 12 9A 0335 521 mov ZBL #INTs ERR,R1 AND INT. B FFER CODE 
05 11 0338 522 BRB ERR_COM :GO TO COMMON CODE 
033A 523 
O33A 524 ;4++ 
Oh 22 ; FUNCTIONAL DESCR'PTION: 
033A 527; THIS ROUTINE PROCESSES THE .PRINT DIRECTIVE. THE CODES 
033A 528; ARE SET IN 'MACSGL_VALUE FOR LATER PROCESSING BY ERROR2 
033A 2¢3 : OR ERROR1. 
033A 530; 
033A 531 :-- 
033A 236 
033A 533 PRINT:: sERROR_HEAD = KPRIN NT 
50 D4 O33A 534 CLRL RO ‘NO MESSAGE FOR .PRINT 
51 1B 9A Oat 23? MOVZBL #INT$_PRT,R1 'SET THE hire BUFFER CODE 
03 : 337 | 3; COMMON ROUTINE FOR ERROR/WARN/PRINT 
0 F 539 ERR_cOM: 
00 6B 06 €5 F 540 BBCC #FLGSV EVALEXER, (R11),10$ ;DON'T SEND CODE TO PASS 2 
52. QOOOO'CF SE 0343 41 10$: MOVAB WeRACSGL E,R2 POINT TO RESULT WORD 
82 51 B60 48 4¢ MOVW R1,(R IST ORE THE INT. BUFFER CODE 
82 50 B60 rt] 3 MOVW RO. (R Ns SSTORE THE MESSAGE INDEX 
‘f 45 ; COPY LINE FOR PASS 2 ERROR HANDLING 
56 QO0O'CF DO 034 <3 20S: MOVL WeRACSG | LINELN,R6 :GET LENGTH OF LINE 
56 04 1 5 48 ADDL3 #4 FIGURE SIZE OF RECORD 
FCA6' 30 035 49 BSBW RACSIATOUT. N [MAKE ROOM FOR IT 
FF AO «FF BF 90 SA 50 MOVB #-1,-1 SIGNAL SPECIAL LINE 


ase LINEBF , (R9) : 
R3,R9 Hf 


“+z 
o> 


MACSACTCHR CHARACTER STRING ROUTINES Vg $EP-1984 01:58 :23 VAX/VMS Macro V04-00 Page 
v04-000 ERROR/WARN/PRINT DIRECTIVES ~SEP=1984 01:46:46 CMACRO.SRCJACTCHR.MAR; 1 (10) 
6F 57; 
of 28 ; FUNCTIONAL DESCRIPTION: 
SF 60 ; ERROR2 AND yfBROR! ARE CALLED AFTER A .ERROR/.WARN/.PRINT 
6F 61 ; DIRECTIVE HAS BEEN PROCESSED. THE INTERMEDIATE CODE AND 
6F 6¢ ; THE MESSAGE INDEX ARE PICKED UP FROM THE STACK, AND EMITTED 
6F 63 ; TO THE INTERMEDIATE BUFFER, ALONG WITH THE INPUT LINE BUFFER 
O36F 64 ; POINTER. ERROR2 IS CALLED IF THERE WAS AN EXPRESSION TO 
036 265 : BE PRINTED. ERROR? IS CALLED IF THERE WAS NO EXPRESSION. 
O36F 269 ; NOTE: THE ERROR ROUTINES EXPECT THAT PRIL WILL LEAVE THE EXPR 
O36 568 ; SET IN MAC$GL_VALUE. 
O36F 569; 
O36F 570; 
O36F 571 :=- 
O36F 378 
O36F #573 ERROR2:: sDIRECTIVE = ERROR HEAD EXPR 
O36F 574 SINTOUT_LW INT$_PRIL,<W*MACSAL_VALSTACKLR7]> ;PRINT VALUE 
52 FFFC'CF47 DE O37A 575 MOVAL “W°MACSAC_VALSTACK=4CR7J,R2 :POINT TO WHERE Tee DATA IS 
14 11 0380 576 BRB ERR_3 :G0 FINISH UP 
0382 577 
0382 578 ERROR: IRECTIVE = ERR EAD 
0382 579 * SINTOUT _LW INT$_SETLONG,<#0 wmacéecr VALUE> ;C EAR ROATUE RESIDUE IN PASS 2 
52 O000'CF47 DE 0390 580 MOVAL “WIMACSAL “VALSTACKLR?7J,R2 ;POINT TO WH ERE THE DATA IS 
50 OA 9A 0396 581 ERR_3: MOVZBL #1 : {WERE WILL BE 10 BYTES 
FC64" 30 0399 382 BSBW RACEINTOUT N :SET UP FOR 
89 82 90 039c 58 MOVB (R2)+, (RO)F SET THE COMMAND FOR PASS 2 
52 6 OO39F «= 5 84 INCL R2 iSK KIP A BYTE 
89 82 3C O3A1 585 MOVZ2WL (R2)+,(R9) FIRST LONGWORD IS MESSAGE INDEX 
89 OO00'CF DO O3A4 586 MOVL  W*MAC$GL DINEPT, (R9)+ :SECOND LONGWORD IS LINE POINTER 
00 6B 06 ES 039 387 on BBCS #FLGSV_EVALEXPR, (R11),10$ ;ALLOW EXPRESSION EVALUATION 
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v04-000 NCHR NUMBER OF CHARACTERS DIRECTIVE 


1 mise ts 9 1:58: ; AX/VMS Macro _V04-00 
“SEP=1984 01:46: MACRO.SRCJACTCHR.MAR; 1 


Ar 30 -SBTTL NCHR NUMBER OF CHARACTERS DIRECTIVE 
AE $4 p++ 
r 87 3 FUNCTIONAL DESCRIPTION: 
AE 95 ; THIS DIRECTIVE DEFINES THE SYMBOL SUPPLIED WITH THE LENGTH 
AE 36 : OF THE FOLLOWING STRING. 
3! 
AE 809 
AE NCHR:: DIRECTIVE = KNCHR ID 

FC4F' 39 at BSBW RACSSKIPSE SKIP SPACES 

2c SoSA 1 8 CMPB R10,#*A/,/ : COMMA? 
0 \¢ B46 6 BNEQ 10$ 71F NEQ NO 

FC47" ; B6 604 BSBW MACSGETCHR sYES==SKIP IT 

FC44" 30 B9 605 BSBW MACSSKIPSP SKIP SPACES 

FC41" 30 O3BC 606 108 BSBW MACSMAC_ARG_SCN ;SCAN THE ARGUMENT 

56 O000'CF47 DO O3BF 607 MOVL W*MACSAC_VACSTACKCR7],R6 ;POINT TO SYMBOL BLOCK 
OOAB «631 «#403C5)~ = 608 BRW FINISH_N_DIR sFINISH PROCESSING DIRECTIVE 


MAI 
vO: 


MACSACTCHR CHARACTER STRING ROUTINES 16-SEP-1984 $ O13 58: ‘23 AX/VMS Macro _V04-00 Page 17 
v04-000 NARG RETURN NUMBER OF ARGUMENTS IN MACRO ~3Ep= 1984 1:46: MACRO. SRCJACTCHR.MAR; 1 (12) 
6 ¢ $10 -SBTTL NARG = RETURN NUMBER OF ARGUMENTS IN MACRO CALL | 
cle | 
0 : ei? ; FUNCTIONAL DESCRIPTION: 
C8 615 ; THIS DIRECTIVE DEFINES THE SYMBOL SUPPLIED TO BE THE NUMBER | 
8 C 616 ; OF ARGUMENTS IN THE CURRENT MACRO CALL. AN ERROR IS GENERATED 
8 : ats : IF WE ARE NOT CURRENTLY EXPANDING A MACRO. 
8 C 619 ;-- 
C 620 | 
O3ce 621 NARG:: sDIRECTIVE = KNARG 
FC35*° 30 03C8 6 ¢ BSBW = MACSSYMSCNUP SCAN THE ID 
08 50 €8 03CB 6 BLBS_ sR ;BRANCH IF ID THERE 
O3ce 624 SMAC_ERR DERSTNX ; No==syntax error 
eC ea. 31 03D3 625 BRW MACSERRORPT i ISSUE | RROR_AND RETURN 
FC27" 30 0306 626 10$:  BSBW §MACSINSUSRSYMTB ;INSERT IN USER SYMBOL TABLE 
55 QO00'CF DO 0309 627 MOVL W*MACSGL_INPUTP,RS :POINT TO CURRENT INPUT BLOCK 
56 51 DO O3DE 628 MOVL RIOR R6 ;POINT TO SYMBOL BLOCK 
08 68 10 £0 0361 6¢9 BBS FLGSV RACTXT, (R11),20$ ;BRANCH IF READING MACRO TEXT 
QO3E5 630 SMAC “ERR NOT INMAC : Worenot b macro 
FC13" 30 O3EA 631 BSBW” = MACSER ROR RPT i ISSUE ERR 
50 1C AS 9A O3ED $33 20$:  MOVZBL TNPSB ARGCT CRS). RO ;GET THE N UMBER OF ARGS 
OO7F 31 O3F1 63 BRW FINISA_N 7GO FINISH PROCESSING DIRECITVE 


MA( 
vO 
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MACSACTCHR CHARACTER STRING ROUTINES 1 ~$£P-1986 01:58:23 AX/VMS Macro V04-00 Page 18 | MA 
v04-000 NTYPE ASSIGN OPERAND TYPE TO SYMBOL =SEP=1984 01:46:46 [CMACRO.SRCJACTCHR.MAR; 1 (13) | v0: 
Fé 6 5 -SBTTL NTYPE ASSIGN OPERAND TYPE TO SYMBOL | 
Fa 689 ses 
O3F4 638 ; FUNCTIONAL DESCRIPTION: 
8 F 8639; 
F4 640 i= | 
0 F4 = 641 
F4 ong NTHD2:: E_HEAD = KNTYPE ID 
50 O0000'CF47 D0 O34 64 MOVL W*MACSAL_VALSTACKCR7], nO: GET Pi BLOCK ADDRESS 
06 11 0 FA S46 BRB NTYP_O > JOIN COMMON CODE 
O3t 666 NTHD1:: E_HEAD = KNTYPE ID DCOMMA 
50 FFFC'CF47 DO O3FC 64 OVL W*MACSAL_VALSTACK-4(R7), io’: "GET ID BLOCK ADDRESS 
OOO'CF 50 00 Onde 648 NTYP_O: MOVL RO,W*MACSGL_ASNPTR “SAVE ID BLOCK aAbbRESS 
QOOO'CF OO00'CF DO 0407 649 MOVL  W*MACSGL_PC;W°MACSGL_SAVE_PC ;SAVE PC ADDRESS 
QOO00'CF D4 O040E 650 CLRL = W*MACSGL° ABSFLAG ;ASSUME ABSO OLUTE EXPRESSION 
QOOO'CF 59 D1 041 651 MPL ROW MACSGL” INTWRNPT TIRE TO FLUSH BUFFER? 
03. 1B 041 63¢ BLEQU 20$ EQ NO 
FBE4' 30 0419 65 SBW  MACSOUTFRAME SYESCCFLUSH THE BUFFER 
OOOO'CF 59 DO 041C 654 208: MOVL 9 UoMACSOL _EXPPTR ist EXPRESSION POINTER | 
0000'CF 59 DO 0421 655 MOVL  R9.W*MACSGL EXPEND END 7 EXPRESSION 
00 6B 06 £5 0426 656 BBCC_| #FLGSV_EVALEXPR» (R11), a: EVALUATE EXPRESSION 
6B 01000084 8F CB 042A 657 BISL2 #FLGSMCOMPEXPR!FLGSM_ etl of29,NOTAEY OREF ,(R11) ASSUME COMPILE-TIME 
0431 658 ND ALLOW OPTIMIZATION 
0431 659 ;TELL _PRMSYM NOT TO SET REF BIT 
O000'CF 10 DO 0431 660 MOVL #184,W*°MACS$GL_OPSIZE :SET READ’ ‘ACCESS MODE 
00 25 €E2 0436 661 BBSS #FLGS$V _NTYPEPT,(R11),.41 ; Suppress normal PC register checks 
05 043A 666 RSB 
0438 66 
0438 664 ;++ 
bike 292 3 FUNCTIONAL DESCRIPTION: 
0438 667 ; THESE TWO ROUTINES PERFORM THE ACTUAL ASSIGNMENT OF THE 
0438 668 ; MODE/REGISTER TO THE SYMBOL POINTED TO BY MACS$GL_ASNPTR. 
0438 670 ;-- 
043B 671 
0438 672 NTYPE1: :DIRECTIVE = NTYPE_HEAD 
0438 67 * Smac ERR DIRSYNX 3 ea gorrer. 
FBBD' 0440 674 BSBuT MACSERRORLN {50° ISSUE A 
QOOO'CF D4 O43 675 CLRL W*MACSGL_VALUE [CLEAR RESULT | 
0447 677 NTYPE2:: ;DIRECTIVE = NTYPE_HEAD REF | 
0000'cF O0O'CF DO 0447 678 MOVL W*MACS$GL_ SAVE PC w*MACSGL ads sRESET PC 
56 O000'CF D0 O4ue 679 OVL § W*MACSGL“ASNPTR,R6 INt TO THE SYMBOL BLOCK 
50 Q000'CF 9A 0453 680 MOVZBL W*MACS$GB~ TMODE” RO Aa IM 
50 04 78 0458 681 ASHL #4,R0,R [MAKE ROOM FOR IREG 
50 0000'CF 88 045¢ 682 BISB2 UeRACSCB_ IREG,RO sADD_ IN IREG 
50 50 04 78 0461 68 ASHL #4,RO,R sMAKE ROOM FOR MODE 
50 0000'CF 88 0465 684 BISB2 wW*MACS$GB_MODE,RO 7PDD IN. MODE 
50 50 04 046A 685 ASHL #4,R0,RO :MAKE ROOM FOR REG 
50  0000'CF 046E 686 BIS W*MAC$GB_REG,RO 3; THE TYPE 1S COMPLETE 
047 687 FINISH_N_DIR 
Q000'CF D4 0473 688 CLRL W*MACSGB_MODE ;CLEAR REGS AND MODE 
05 Ab | 50 D0 047 689 MOVL  RO,SYMS$L~VAL(R6) 7STORE IN SYMBOL BLOCK 
0 A6 894 0478 690 CLRB © SYM$B_SEG(R6) ;DEFINE IN ABSOLUTE PSECT 
FB7F" 30 O47E 691 BSBW §$MACSMOL_DEF_CHK ;CHECK FOR MULTIPLY DEFINED 


FBO6F' 


ACTER R 

E ASS 0 
4 9 
; be 4 
4 94 
48B 695 
QO48E 696 
0491 697 
049A 698 
0498 699 
0498 700 


16-SEP-1984 258: AX/VMS M 04- 
Brea aks B1i2k:Ze HAXCHBS agra, ¥Oe-O0. 
BISW2 #SYM$M Ev eW PUR att Saas ASN, ;SET SYMBOL FLAGS 
MOVZBL 44444 DEF,RS5” sTHIS IS A DEFINITION 

BSBW MACSCREF Sim CREF SYMBOL Ry A eee 


BSBW MACSINTODT sOUTPUT ASN T 
SINTOUT. LW INTs. PRTC eSyNgL _VAL (R6)> PRINT VALUE 


~ END 
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FLGSM_RPTIRP 
FLGSM_SEQF IL 


FLG$V~BOL 
FLGSV~CHKLPND 
FLGSV~COMPEXPR 
FLGSV~CONT 
FLGSV~CRF 
FLGSV~CRSEEN 


FLGSV-LSTXST 
FLGSV~MAC2COL 
FLGSV~MACL 


FLGSV~MOREARG 
FLGSV~MORE INP 
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= 4 MACSINTOUT_X eeeneeee =X 
KRESTORE = 8 6 Bo MACSMAC_ARG_SCN aeeneeee =X 
KSAVE = 4 0 Oee ACSMUL~DEF -CH aeeneree xX 03 
= $8 MACSOPTIMIZEXPR keetenee 
= 0000007C MACSOUTF RAME aeeeeeee x 03 
= 444 3 MACSSKIPSP aeeeenee =X |= (03 
= 000 $2 MACSSYMSCNUP eeeneeee =X 03 
= 090000 3 MAC$_ASCTOOLONG = 007D901A 
= 0000007 MACS$_DIRSY = 007D906A 
= SOO HOSE nt Be = 007D908A 
= 000000 5 MACS$_GENW = 00708818 
XFER = a MACS_ “ROIDECSTRG z ASSES 
CSTSk -BUFSIZ = 0000 86 MACS$_NOTINMACRO = 007D918A 
LSTSK~L_P_PAGE = 0000003C MACS_ PACTOOLONG = 007D91AA 
= 007D922A 
LSISk mie _ 90900008 wit = 00000000 
4 MAC_SUBSYS = 0000007D 
awa $08 ites se 
L_DvP 00000008 MNB$B_NAM 00000004 
00000000 MNBSK_BLKSIZ 0000001C 
MABSW-DVLEN 00000006 MNBSL_ARG 90000018 
MACSAB. CMSK_TAB eereeeee = X 03 MNBSL_CRSYMF 00000013 
MACEan-tenput eee To mNBSt ~PAGC 0000000F 
geeaereeee 
ar Se a ee Sc SHE se 
geeeaeeree 
poe eRe eeeneree=§= 6X = =603 MNBSW_FLA 00000009 
MACSERRORLN eeeeeeee = =X 03 MXBSK_BLKSIZ 00000008 
CSERR eeneeree KX 8 03 XBSL_LIN 00000000 
C$GB_I eenrereee = =X 8603 mBSL PAGES 44 03 
MACS$GB_IREG eeeneree§ KX 03 ARG 000003C8 3 
$e soseenee. 8a NHR Soo0NsrE Re OOS 
® 
See nonce ee | NTHD2 Bongos RE OOS 
MACS$GL_ABSFLAG eeeeeeee§ X 03 NTYPE1 00000438 RG 03 
MACSGL-ASCCNT eeeeeeee§ XX 03 NTYPE2 00000447 RG 0 
MACSGL_ASNPTR teeeeree XxX 03 TYP_0 00000402 R 03 
MACSGL_DIRFLG teeeeeee x b3 OBJSR_BUFSIZ = +4444 09 ae 03 
geeeee 
MAC SCL EXPE TR cesesese 8 Oh EVEN 0000038 ROS 
TINPUTP teeeeeee X03 ODD-EVEN EXIT _ 90000304 R 05 
MACSGL~ INTWRNPT teeeeereer KX 03 OPFSM_LASTOPR = 00002 
MACSGL_LINELN eeeneeee XX 03 OPFSM_OPTEXP ° 00001000 
$GL_LINEPT eeeeeeee x 8 OPFSV_LASTOPR = a 
MACS$GL_LINE_CNT eeeeeeee =X OPF$V~OPTEXP = 000C - 
MACSGL-LIST-IT eeeneere xX 03 PACKED 900001F0 RG 05 
mthet-peeeee Seaseren aia ae PRINT 0000033 RG 08 
MACS$GL_PRMSEG eeeereee § xX $3 PSC$B_NAME 0000004 
MACSGL~SAVE_PC eereeeee KX 0 PSC$B_SEG 0000000C¢ 
MACSGL~ VALUE eeereree x ; PSC$B_UNUSED 0 : % 
RACSINSUSRS MTB eeneeeee =X 6 PSCS$K"BLKSIZ : 1 
WAC SINTOUT=o-tu eaanenk a PSeSL~CURLOC 00 O00F 
- e eeeeenee 8 § YX 7 
RacSINTOUI~2-L4 teereree x 6 PSCSL-LINK 00 9000 
MACSINTOUT -BY eeeeeeee =X 0 PSC$L-MAXLGTH 
MACSINTOUT—N eeereeee =X PSCSM~ABS FFFFFFF? 
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PSCSM_ALIGNFLG = 00004900 SYMSK_BLKSIZ 0D 
PSC$M~ALLOPTNS = 0000036 SYMS$K-MAXLEN = 1F 
PSCSM~BYTE = 00004000 SYM$K~TWOCOL : 1 
PSCSM~CON = FFFFFFF SYMSL “LINK 0 
PSCSM~DEF AULT = 000001¢ SYMS$L VAL 000 
PSCSM~EXE = 0¢ SYMSM-ABS = 90000019 
PSCS$M~GBL = 0000001 SYMSM-ASN : 10 
PSCSM“LCL = FFFFFEEE SM~CRFO = 99002000 
PSCSM-LIB = 99000002 SYM$M~DEBUG = 000000 
PSCSM~LONG = 0000480 $MDEF = 0000001 
PSC SM_NOEXE = FFFFFFBF SYMSM~DELMAC = 0 
PSCS$M_NOPIC = FFFFFFFE SM~EPT = 00000200 
PSCSM_NORD = FFFFFFIF SYMSM~EXTRN : 
PSCSM_NOSHR = FFFFFFDF SYMSM~GLOBL = 90000004 
PSCSM_NOVEC = FFFFFDFF SYMSM~LOCAL = 00000040 
PSCSM_NOWRT = FFFFFEFF SYMSM~ODBG = 00000400 
PSCS$M_OVR = 00000004 SYMSM-REF = 00000080 
PSCSM_PAGE = 00006400 SYMSM-RELPSECT = 00000800 
PSCSM~PIC = 00000001 SYMSM~SUPR = 00004000 
PSC$M_QUAD = 0000400 SYMSM~WEAK = 00000002 

SCSM_R = 00000080 SYMSM-XCRF = 00001000 
PSCSM-REL = 00000008 SYM$V-ABS = 00000004 
PSCSM~SHR = 00000020 SYMSV-ASN = 00000008 
PSCSM_USR = FFFFFFFD SYMSV-~CRFO = 0000000D 
PSCSM_VEC = 00000200 SYM$V~DEBUG = 00000005 
PSCSM_WORD = 00004400 SV“DEF = 90000000 
PSCSM~ = 00000180 SYMS$V~DELMAC = 00000009 
PSC$S_ALIGNMENT = 00000004 SV“EPT = 00000009 
PSC$V~ALIGNFLG = 0000000E SYMSV-EXTRN = 00000003 
PSC$V~ALIGNMENT = 0000000A SYM$V~GLOBL = 00000002 
PSC$V"EXE = 00000006 SYM$V~LOCAL = 00000006 
PSC$V~GBL = 00000004 SYM$V~ODBG = 0000000A 
PSC$V"LIB = 00000001 SYMSV~ = 00000007 
PSC$V~OVR = 90000002 SYMSV-RELPSECT = 00000008 
PSC$V~PIC = 0000000 SYMSV~SUPR = 0000000E 
PSC$V~RD = 00000007 SYMSV "WEAK = 00000001 
PSC$V"REL = 00000003 SYMSVXCRF = 0000000¢ 
PSC$V~SHR = 00000005 SYMSW-FLAG 00000009 
PSC$V~VEC = 00000009 TAB 90000009 
PSC$V"WRT = 00000008 WARN 00000326 RG = 03 
PSCSU~FLA 00000009 x1 = 00000400 
PSC$W~OPTIONS 00000000 X2 = 0000000F 
ROX$V~BINARY = 00000000 
ROX$V~DECIMAL = 90000002 
ROXSV~ = 0000000 
RDX$V~FLOA = 90000004 
RDX$V~GFLOAT = 90000006 
RDX$V~HEX = 0000000 
RDX$VHFLOAT = 00000007 
RDX$V~OCTAL = 00000001 
REGS PC = 000 0 F 

REG = 90000031 
SEMI = 90000058 
STBSK_PG_MISS = 00 A 
Synsensten 000000¢ 
SYM$B~ TOKEN 00000008 
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$oowwecoooeeeccce + 

: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
= OS « 00000000 <¢ 0.) 00 ¢ QO.) NOPIC USR ABS LCL NOSHR NOEXE NORD 
- BLANK . 00000000 < 0.) O1 ¢ -) NOPIC USR CON REL LCL NOSHR- EXE 
SABSS Qo000003C ( 60.) Q2 ¢ ¢- NOPIC USR CON ABS LCL NOSHR EXE RD 
MACSRO_CODE_P1 00000498 ( 1179.) 03 ¢ 3.) NOPIC uUSR C REL GBL NOSHR EXE RD 


pwr waar nomen mannan oe ome me woh 


H Performance indicators ! 


eee er eee ewe meme ew ene ee eH + 


Phase Page faults CPU Time Elapsed Time 
Initialization | 29 00: 00:00.08 00:00:03.45 
Command processing 106 00:00:00.3 Se eT BE 
Pass 1 264 O0 : 00 383 SE B20 36 31 
Symbol table sort 0 00:00:00.78 00:00:03.17 
Pass 2 138 00:00:01.41 00:00:05.55 
Symbol table output 64 00:00:00.29 00:00:00.74 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 605 00:00:08.14 00:00:41.00 


The working set Limit was 1650 pages. ; : 

49485 bytes (97 pages) of virtual memory were used to buffer _the intermediate co 
There were 40 pages of symbol table space allocated to hold 757 non-local and 43 
700 source Lines were read in Pass 1, producing 23 object records in Pass 2. 

17 pages of virtual memory were used to define 16 macros. 


de. 
local symbols. 


+ 
' Macro Library statistics ! 
¢e we eere coe meee eee ee een eer cece + 


Macros defined 


Macro Library name 


_$255$DUA28: CMACRO.OBJJMACRO.MLB; 1 15 
$255$DUA28: CSYSLIBJSTARLET .MLB; 2 4 
TOTALS (all Libraries) 19 


851 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:ACTCHR/OBJ=OBJ$:ACTCHR MSRC$:ACTCHR/UPDATE=(ENHS:ACTCHR) +LIB$:MACRO/LIB 
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NOW 
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NOW 


Page 


RT NOVEC BYTE 


NO 
RT NOVEC LONG 
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AH-BT13A-SE 
VAX/VMS_V4_.0 
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